home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
nyan_e2
/
nyane2mb.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
3KB
|
146 lines
/********** バイナリメールの作成を行う v1.04a用 **********/
%DestWPNC{[Attr]
%MemLst2{
var AddrFile[12];
case(Attr,
{WPNC },{AddrFile:={WPNCADRS.TXT};
},{FAX },{AddrFile:={FAXDIALS.TXT};
});
mclear(2);
case(@filechk(logd|{\MAIL\}|AddrFile),
{Yes}, {mread(logd|{\MAIL\}|AddrFile,2);
},{No},{madd(2,{});
});
};
%Dmail{
%name @input({ 送信先のアドレスを入れてください},,{});
case( @nochar(name)>45,{Yes},{
footnote({「}|name|
{」は半角英数字40文字以内に。});
},,{
footnote({});
dest:=Attr|{: :}|name;
});
};
case(@mlast==0,{Yes},{mclear(1); madd(1,{})});
MemLst2;
loop({ mopen(2,0,21,599,459,{w});
footnote({直入決定 終了},{b});
loop({ waitx(1000);
im(@xtype!=2 && @xtype<100 || @xlinenum<0)
});
case(@PFK(@xtype),
2,{ dest:=Attr|{: :}|
@head(@head(@memo(2,@xlinenum),{\n}),{ });
im({No});
},101,{ loop({
Dmail;
im(dest={});
});
},102,{ dest:=Attr|{: :}|
@head(@head(@memo(2,@xlinenum),{\n}),{ });
im({No});
},105,{ dest:={};
im({No});
}, ,{ im({Yes});
});
case(@mcheck=2,{Yes},{mclose(3)});
footnote({});
});
};
%bmail{
%DestBMail{
%MemLst{[path]
mclear(2);
case(@filechk(logd|{\}|path|{\MEMBER.TXT}),
{Yes}, {mread(logd|{\}|path|{\MEMBER.TXT},2);
},{No},{madd(2,{});
});
mset(2,{w});
};
%Dmail{
%name @input({ 送信先のIDを入れてください},,{}) ;
case( @nochar(name)!=8,{Yes},{
footnote({ 「}|name|
{」は 英数字8文字でありません});
},,{
footnote({});
dest:={BMail:}|name|{ };
});
};
%attr {BMail};
case(@mlast==0,{Yes},{mclear(1); madd(1,{})});
MemLst({MAIL});
loop({ mopen(2,0,21,256,459);
footnote({直入決定変更 終了},{b});
loop({ waitx(1000);
im(@xtype!=2 && @xtype<100 || @xlinenum<0)
});
case(@PFK(@xtype),
2,{ SetHandle;
},101,{ loop({
Dmail;
im(dest={});
});
},102,{ SetHandle;
},103,{ mclose(3);
loop({
SelMail;
case(@memo(2)={},
{Yes}, {footnote({ 選択されたアドレス}
|{ブックは空です});
});
im(@memo(2)={});
});
im({Yes});
},105,{ dest:={};
im({No});
}, ,{ im({Yes});
});
case(@mcheck=2,{Yes},{mclose(3)});
footnote({});
});
};
DestBMail;
};
%bmail2{
var fno[10];
var endtype[3];
footnote({ 送信するファイルを選択してください});
Bmail:=@filesel;
BmailDir:=@getcdir2;
footnote({});
case(Bmail<>{},
{Yes},{
endtype:=@select({ このファイルを送信予約しますか?}
,99999,{im({捨})},
{送信予約する}, {im({予})},
{送信予約しないが保存する}, {im({保})},
{保存しないで捨てる}, {im({捨})}
);
},{No},{im({捨});
});
case( endtype={予} || endtype={保} ,{Yes},{
fno:=0;
mkdir(logd,{UP});
loop({ fno:=fno+1;
filechk(FNameTop|{MES}|fno|{.txt})
});
fno:=@getchar(fno|{ },1,3);
IndexLine:=endtype|{ }|fno|{ }|dest|{:}|Title|{\n};
write( IndexFName , IndexLine);
%fname FNameTop|{MES}|@head(fno,{ })|{.TXT};
dispoff({Yes});
command({copy }|BmailDir|{\}|Bmail|{ }|fname);
dispoff({No});
});
};
case(proc,{2進},{bmail},{2進2},{bmail2},
{WPNC},{DestWPNC({WPNC })},{FAX},{DestWPNC({FAX })});